perm filename COMP1.OLD[AL,HE] blob sn#349150 filedate 1978-04-14 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TITLE  Pseudo-code
C00004 ENDMK
CāŠ—;
;.TITLE  Pseudo-code

; File that requires all the compiled files.  This is meant to be
;overlaid on top of the interpreter.

;  .OFFSET -200000

; Only need to insert this during first pass
    .IF1

       .MACRO ASCIE STR
       .ASCIZ STR
       .EVEN
       .ENDM

	.MACRO MAKEOP CNAME, ANAME	;Compiler name, Address name
	XX	CNAME
	.ENDM

    .MACRO PLACE PHYS,VIRT
	.OFFSET 0
	.=PHYS
	.OFFSET VIRT-PHYS
    .ENDM

    K3 == 1

    .IFNZ K3
	;.PRINT /You should be using the special PALX	;true if addresses get big
/
    .ENDC

    .INSRT ALHEAD.OLD[AL,HE]
    STSW  REAL,1    ;1 => use the COMP.AL files, otherwise COMT.

    .INSRT  INTOPS.PAL[AL,HE]
	    ;The interpreter operation table
    .ENDC

	PUTLOC PCDVER, PCVERSION

.IFZ K3
    . = PCODE	    ;Beginning of instruction space
.IFF
;   . = PCODE
    PLACE 160000,PCODE		;Will be .OFFSET -200000 later .OFFSET -600000
.ENDC

; This file is followed by the .ALP, .ALT, & .ALV files. Then COMP2.PAL[AL,HE]